home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 41
/
Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso
/
-seriously_amiga-
/
graphics
/
videoeasel
/
camrexx
/
hpp-gas_borders.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-04-19
|
950b
|
38 lines
/* HPP-Gas by an idea of Toffoli, in CAMRexx by THOR */
MakeAlgorithm:
if plane=0 then
PLANEALGORITHM margolus hvphases
if plane=1 then
PLANEALGORITHM echo center1
return
MakePlane:
if plane=0 then; do
if center_ then
SETPLANE off
else; do
if (center=opp & cw=ccw & center~=cw) | opp_ then
do
if opp_ then; do
if cw_=ccw_ then
SETPLANE center
else; do
if cw_ then
SETPLANE ccw
if ccw_ then
SETPLANE cw
end
end; else; do
if cw_ | ccw_ then
SETPLANE center
else
SETPLANE cw
end
end
else SETPLANE opp
end
end
return